home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 46
/
046.d81
/
f.file viewer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
479b
|
15 lines
1 print"[147][159]"
2 printtab(9)"[201]nsert [204][207][193][196][211][212][193][210] #38[159] [211]ide 1[159]"
3 printtab(14)"and press [210][197][212][213][210][206][146]"
4 geta$:ifa$<>chr$(13)then4
5 printtab(8)"[156][197] [216] [212][160][197][160][210][160][205][160][201][160][206][160][193][160][212][160][201][160][206][160][199]!!!"
10 qt$=chr$(34):f$="file viewer"
20 print"[144]load"qt$f$qt$",8"
30 print"60500 mm=a:poke198,.:b$="+qt$+qt$+":?"+qt$+"[164]"+qt$+";:fora=1to17
40 [153]"60520 ifa$=chr$(13)then?"[170]qt$[170]"cmd "[170]qt$[170]": a=mm:return"
100 [153]"open15,8,15,"qt$"s0:"f$qt$":close15:save"qt$f$qt$",8"
125 [153]"poke646,15"
130 [153]""
140 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
150 [162]